uses crt;
var
a:set of char;
i,k,m,n:integer;
s:string;
Begin
writeln('s= ');
readln(s);
for i:=1 to length(s) do
if (s[i]>='A') and (s[i]<='F') or (s[i]>='X') and (s[i]<='Z')
then
a:=a+[s[i]];
for i:=1 to 255 do
if (chr(i)) in a then
write(chr(i));
End.
Следующий вариант
uses crt;
var
a:set of char;
i:integer;
s:string;
Begin
writeln('s= ');
readln(s);
for i:=1 to length(s) do
if s[i] in ['A'..'F','X'..'Z'] then include(a,s[i]);
for i:=1 to 255 do
if (chr(i)) in a then
write(chr(i));
End.
Похожие записи/страницы:
- Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого…
- Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого…
- Дана непустая последовательность символов. Постройте и напечатайте множество, элементами кот.являются…
- Дана последовательность слов, в которой слова разделены запятыми, а за последним словом — точка. Напечатайте:…
- Пусть дан текст. Перечислите буквы данного текста, которые имеются в слове, заданном пользователем - Pascal(Паскаль)
- Пусть задано множество А, напечатать в алфавитном порядке все элементы этого множества, входящих в множество…
- Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним…
- Дан текст на русском языке. Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят хотя…